home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Game Pak / rerun-gamepak / mad adder (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  112 lines
  1. 1 poke52,48:poke56,48:clr
  2. 5 dimq(80):gosub600:gosub700:gosub800:gosub900
  3. 10 d$="([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]("
  4. 20 b$="(((((((((((((((((((((((((((((((((((((((":c$="("
  5. 30 print"[147]":c=54272:sc=1024:f=99:k=40:g=32:w=42:i=43:q1=41:q4=44:q5=45:q6=46
  6. 40 e=1:ll=.:l=2:u=7:cc=3:co=5
  7. 50 yy=.:xx=.:xy=39:yx=24:jj=80
  8. 60 rr=rr+1
  9. 61 print"[159]"left$(c$,e+yy)b$;"(";""left$(c$,yx+e)"[157]"b$"";
  10. 65 printtab(xx)d$""tab(xy)d$""
  11. 70 ifrr=ethenpoke2023,k:poke2023+c,cc
  12. 80 yy=yy+e:xx=xx+e:xy=xy-e:yx=yx-e
  13. 90 p1=.:ifrr>1andrz=.thenrz=1:goto61
  14. 95 ifrr>1thenprint""tab(xx)d$""tab(xy)d$"":xx=xx+e:xy=xy-e
  15. 100 d=.:n=2:p=.:s=1524:pokes,q4:pokes+c,co:q(e)=s:rz=.:hh=4:ifrr>4thenhh=2
  16. 110 b=e
  17. 130 gg=15:h=251
  18. 140 ifsp<ethensp=e
  19. 150 pp=sp*10-10:q=q4:a=l:ee=.:ifrr=6thenpp=pp+100:gg=7
  20. 160 ifrr<>ethenprint""right$(c$,25)right$(b$,35)""
  21. 161 ifrr<>ethenprint"[159]"right$(c$,25)"score ="ss;"lives ="cc-ll"rack ="rr""
  22. 170 goto320
  23. 180 sys49152:ifpeek(h)=0orpeek(h)=1then180
  24. 190 goto320
  25. 200 d=k:q=q5:goto240
  26. 210 d=-e:q=q6:goto240
  27. 220 d=-k:q=q1:goto240
  28. 230 d=e:q=q4
  29. 240 ifb=ethen550
  30. 250 ifpeek(s+d)=korpeek(s+d)=ithen410
  31. 260 ifpeek(s+d)=wthengosub540:p=p+e:n=n+hh:b=e
  32. 270 ifb=.thenpokem,w:pokem+c,int(rnd(e)*v)+e
  33. 280 q(a)=s+d:z=a-n:ifz<.thenz=jj+z+e
  34. 290 pokeq(z),g:a=a+e:ifa>jjthena=.
  35. 300 pokevv,v:pokes+c,co:pokes,i:pokes+c+d,co:pokes+d,q:s=s+d:pokevv,.
  36. 320 ifpp=.thensys49152:onpeek(h)+egoto240,180,200,210,220,230
  37. 330 fort=etopp:next:sys49152:onpeek(h)+egoto240,180,200,210,220,230
  38. 380 print"[158]hit fire button"
  39. 390 sys49152:ifpeek(251)<>ethen390
  40. 400 return
  41. 410 gosub1000:ll=ll+e:ee=e:p1=p1+p
  42. 430 r=int(p*(rr^.5)/(sp^.125))
  43. 440 ss=ss+r:ifss>fthenf=f+100:ll=ll-e
  44. 450 fort=0tojj:pokeq(t),g:q(t)=.:next:pokem,g
  45. 460 ifll=ccthen500
  46. 470 ifee=ethen100
  47. 480 ifrr<>6then60
  48. 490 rr=.:ll=ll-e:sp=sp-l:print"[147]":goto50
  49. 500 print"[147] your score:"ss
  50. 510 ifss>hsthenhs=ss
  51. 520 print" high score:"hs
  52. 530 gosub380:gosub800:ss=.:rr=.:goto30
  53. 540 pokevv,5:fort=1to10:next:pokevv,10:fort=1to10:next:pokevv,15:fort=1to20:next
  54. 541 pokevv,.:return
  55. 550 ifp1+p=ggthen430
  56. 560 mx=int(rnd(e)*(xy-xx+e)+xx):my=int(rnd(e)*(yx-yy+e)+yy):m=sc+mx+k*my:b=.
  57. 570 ifm=s+dthenb=e
  58. 580 ifpeek(m)<>gthenb=e
  59. 590 goto250
  60. 600 poke53280,12:poke53281,12:print"[147][144]  please wait a few moments for the"
  61. 610 print"character and ml data to load:"
  62. 615 printchr$(142):poke56334,0:poke1,51
  63. 620 fori=0to511:pokei+12288,peek(i+53248):next
  64. 625 poke1,55:poke56334,129
  65. 630 fori=12608to12608+55:reada:pokei,a:next:poke53272,28
  66. 635 i=49152
  67. 640 reada:ifa=-1thenreturn
  68. 645 pokei,a:i=i+1:goto640
  69. 650 data255,255,255,255,255,255,255,255
  70. 655 data24,24,60,126,219,126,126,60
  71. 660 data0,99,20,255,8,54,65,65
  72. 665 data24,90,36,219,219,36,90,24
  73. 670 data16,120,236,255,255,236,120,16
  74. 675 data60,126,126,219,126,60,24,24
  75. 680 data8,30,55,255,255,55,30,8
  76. 685 data169,,133,251,173,,220,41,31,201,15,240,17,201,29,240,18,201,27,240,19
  77. 690 data201,30,240,20,201,23,240,21,96,169,1,133,251,96,169,2,133,251,96,169,3
  78. 695 data133,251,96,169,4,133,251,96,169,5,133,251,96,-1
  79. 700 print"  push joystick fire button for         instructions"
  80. 705 print"                  or"
  81. 710 print"  push joystick in any direction to     start the game"
  82. 715 sys49152
  83. 720 ifpeek(251)>1thenreturn
  84. 725 ifpeek(251)=1thengoto735
  85. 730 goto715
  86. 735 poke53280,0:poke53281,0:print"[147]         .++++the mad adder+++++"
  87. 740 print"get the spiders * [158]* *"
  88. 745 print"but nothing else!!!"
  89. 750 print"you have three lives to start"
  90. 755 print"earn one life for each 100 points or"
  91. 760 print"earn one life for completing all levels"
  92. 765 print"use joystick to control the adder"
  93. 770 print"push the fire button during play to "
  94. 775 print"pause"
  95. 780 print"push joystick any direction to start    again after a pause
  96. 785 [153]"    syspush fire sysbutton now to start"
  97. 790 [158]49152:[139][194](251)[178]1[167][142]
  98. 795 [137]790
  99. 800 [151]53281,0:[151]53280,3:[151]53272,21
  100. 805 [153]"loadopenspeed ?  (1-9)"
  101. 810 [161]a$:[139]a$[178]""[167]810
  102. 815 sp[178][197](a$):[139]sp[179]1[176]sp[177]9[167]805
  103. 820 [151]53272,28:[142]
  104. 900 [129]lz[178]54272[164]54296:[151]lz,0:[130]
  105. 910 [151]54273,5:[151]54272,48
  106. 915 aa[178]54277:[151]aa,5:s1[178]54278:[151]s1,15
  107. 920 ww[178]54276:[151]ww,33:vv[178]54296:v[178]15:[142]
  108. 1000 [129]lz[178]54272[164]54296:[151]lz,.:[130]:[151]54286,5:[151]54290,16:[151]54275,1
  109. 1010 [151]54296,143:[151]54278,240:[151]54276,65:fr[178]5389:[129]t[178]1[164]75
  110. 1020 fq[178]fr[170][194](54299)[172]3.5:hf[178][181](fq[173]256):lf[178]fq[171]hf[172]256:[151]s[170]c,[181]([187](e)[172]v)[170]e
  111. 1030 [151]54272,lf:[151]54273,hf:[130]:[151]54296,0:[141]900:[142]
  112.